home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / dialer / readme.txt < prev   
Text File  |  1996-04-08  |  2KB  |  58 lines

  1.  
  2. TPhoneDialer Component for Delphi - Freeware component created by Marty Inge.
  3.  
  4.  
  5. TPhoneDialer is a wrapper component for a dialer dialog box.
  6.  
  7. One nice feature of TPhoneDialer is that it will allow dialing of phone numbers containing characters (e.g., "1-800-4-Delphi".)
  8. Strings that are sent to the modem for dialing are first parsed to convert alphabet characters to the corresponding phone digits.
  9.  
  10. TPhoneDialer's one method is Execute which creates an instance of Dial_Dlg and initializes it with TPhoneDialer's four unique properties shown below.
  11. TPhoneDialer's four unique published properties which can be set at design time are:
  12.  
  13.   ComPort:        Integer representing comm port to use [1,2,3,etc.]
  14.   Redial:        Boolean value to determine whether or not to redial if busy.
  15.   InitString:        String to use for initializing the modem. This can be blank. For dialing phone numbers, I just use "ATS11=55" to speed up the dialing.
  16.   PhoneNumber:    String to use for the number to dial. 
  17.  
  18. The other properties (Left, Top, Position, Scaled, Name, Tag, Caption) are just interfaces to the corresponding Delphi form properties.
  19.  
  20. As with any Delphi component, it can be used by dropping its Icon onto a form or it can be dynamically created as follows:
  21.  
  22. procedure TForm1.Button1Click(Sender: TObject);
  23. var Dialer: TPhoneDialer;
  24. begin
  25.   try
  26.     Dialer := TPhoneDialer.Create(Self);
  27.     with Dialer do
  28.     begin
  29.       Caption := 'Phone Dialer';
  30.       Top := -1;
  31.       Left := -1;
  32.       Position := poDesigned;
  33.       Scaled := true;
  34.       ComPort := 2;
  35.       InitString := 'ATS11=55';
  36.       PhoneNumber := Edit1.Text;
  37.       Redial := false;
  38.       Execute;
  39.     end;
  40.   finally
  41.     Dialer.Free;
  42.   end;
  43. end;
  44.  
  45. TPhoneDialer is freeware but if you like it and would like to contribute to my computer upgrade fund I would appreciate any donations (my 486SX is becoming rapidly obsolete.)
  46.  
  47. If you would like the source code for TPhoneDialer, or if you have any comments or suggestions, I can be reached at:
  48.  
  49. Marty Inge
  50. 3814 N Holiday Hill Rd #106
  51. Midland, TX  79707
  52.  
  53. E-Mail:    martywi@marshill.com
  54. Home:    915-689-3200
  55. work:    915-687-0243 
  56.  
  57. Thanks, and enjoy using TPhoneDialer !
  58.